home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Rockford Magazine
/
Rockford_Magazine_026_19xx_-_de_Disk_1_of_2_Side_B.d64
/
wortspiel v7.2
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
4KB
|
142 lines
1000 df$(1)="'ich weiss nicht, was soll es bedeuten'"
1100 df$(2)="alle heinolieder":df$(3)="den enzian-rap"
1200 df$(4)="die nationalhymne bayerns":df$(5)="die internationale"
1300 df$(6)="'am brunnen vor dem tore'":df$(7)="'sur le pont d'avignon'"
1400 df$(8)="'mistdobalina mistabobdobalina'"
1500 aw$(2)="daran, die uhrzeit abzulesen":aw$(1)="an seinem comeback"
1600 aw$(3)="an der spaltung des bieratoms":aw$(5)=""
1700 aw$(4)="daran, sich laecherlich zu machen"
1800 print"[147][144]";chr$(142);chr$(8):poke53280,11:poke 53281,11
1900 rem*******************************
2000 data magnus,jacques,rudi,ulf,martin,stephan,ingmar,henrik,hendrick
2100 :
2200 data rudi,fliegt,singt,mutiert,terminiert,versteckt sich,verirrt sich
2300 :
2400 data macht,schlumpft,spielt,arbeitet,barfuss
2500 :
2600 data bei strahlendem sonnenschein,unter missachtung aller vorschriften
2700 :
2800 data mit buschhut und variomat-sonnenbrille,laut zischend
2900 :
3000 data trotz schriftlicher proteste
3100 :
3200 data nach sorgfaeltiger planung,am 30.mai,unter starker rauchentwicklung
3300 :
3400 data zusammen mit ,unter,auf,in,hinter,vor,unter
3500 :
3600 data auf,in,hinter,vor,der riesenkobra,den truemmern der konzerthalle
3700 :
3800 data der muelltonne,der ausverkauften konzerthalle,einem panzer
3900 data der bruecke,diesem gebaeude,der dvu-zentrale
4000 data der bahnhofstoilette,der lavafontaene
4100 :
4200 :
4300 rem*einlesen**********************
4400 :
4500 :
4600 for a=1 to 50:read a$
4700 if a<11 then na$(a)=a$
4800 if a>10 and a<21 then ve$(a-10)=a$
4900 if a>20 and a<31 then ad$(a-20)=a$
5000 if a>30 and a<41 then pr$(a-30)=a$
5100 if a>40 and a<51 then no$(a-40)=a$
5200 next
5300 :
5400 :
5500 rem*zufallszahlen*****************
5600 :
5700 :
5800 for a=1 to 5:b(a)=int(10*rnd(1))+1:next
5900 :
6000 rem*kontrolle auf grammatik*******
6100 :
6200 :
6300 if b(5)=6 then gosub 13800
6400 if b(2)=1 then gosub 12300
6500 if b(2)=6 then gosub 12000
6600 if b(2)=8 and b(5)=9 then b(4)=3:no$(b(5))="der kloschuessel":gh=1
6700 if b(3)=10 then v=3: gosub 12700
6800 if b(5)=1 then gosub 14600
6900 :
7000 :
7100 rem*ausdruck**********************
7200 :
7300 :
7400 if kv<>1 then as$=" "
7500 printna$(b(1)):printve$(b(2)):printad$(b(3));:printas$:kv=2
7600 printpr$(b(4));"";
7700 printno$(b(5))
7800 :
7900 :
8000 rem*kontrolle auf anhaengsel******
8100 :
8200 :
8300 if b(2)=3 then v=2:gosub 12700
8400 if b(2)=4 then v=4:gosub 12700
8500 if b(2)=2 then gosub 14500
8600 ifdw=1 then print"heraus":dw=2
8700 if b(2)=7 then v=1:gosub 12700
8800 if b(2)=8 and gh<>1 then print"im boden":gh=2
8900 if b(2)=9 then print"mit ";:gosub 10100
9000 if b(2)=10 then gosub 14400
9100 ifdw=1 then print"heraus":dw=2
9200 :
9300 :
9400 rem*ruecksprungabfrage************
9500 :
9600 :
9700 print
9800 get c$:if c$="" then 9800
9900 print:goto 5800
10000 rem*anhaengsel fuer 'spielt'*****
10100 a=int(9*rnd(1))+1
10200 if a=1 then print"al bundy";
10300 if a=2 then print"darabor";
10400 if a=3 then print"einem pappkarton";
10500 if a=4 then print"sich selbst";
10600 if a=5 then print"erika berger";
10700 if a=6 then print"hella von sinnen";
10800 if a=7 then print"theo waigel";
10900 if a=8 then print"einer flasche";
11000 if a=9 then print"batman";
11100 d=int(6*rnd(1))+1
11200 if d=1 then print" dsa"
11300 if d=2 then print" schach"
11400 if d=3 then print" warlords"
11500 if d=4 then print" strip-poker"
11600 if d=5 then print" monopoly"
11700 if d=6 then print" battletech"
11800 return
11900 rem******************************
12000 b(4)=3:if b(5)=6 then b(4)=2
12100 return
12200 rem******************************
12300 if b(5)=6 then pr$(b(4))="von":goto 12500
12400 pr$(b(4))="aus":dw=1:return
12500 return
12600 rem******************************
12700 x=int(10*rnd(1))+1:ifx=b(1)then12700
12800 if v=1 then gosub 14000
12900 if v=1 then print"den ";:op=3
13000 if v=4 then print"den mann, den sie ";:rf=1
13100 if v=2 then print"zum ";
13200 if v=3 then as$=na$(x):kv=1
13300 if v<>3 then printna$(x);
13400 op=3
13500 if rf=1 then print" nannten":rf=2
13600 v=7:return
13700 rem******************************
13800 b(4)=2:return
13900 rem******************************
14000 cc=int(2*rnd(1))+1:if cc=1 then op=1:goto 14200
14100 op=2
14200 return
14300 rem******************************
14400 hj=int(5*rnd(1))+1:printaw$(hj):return
14450 rem******************************
14500 d=int(8*rnd(1))+1:printdf$(d):return
14550 rem******************************
14600 if b(4)=3 or b(4)=8 then pr$(b(4))="im magen der"
14700 return
14800 rem******************************